home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00057_Toggle help.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.2 KB  |  70 lines
  1. property pSpr, pOrigMember, pRollMember, pDownMember, pTimer, pSupressRoll
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember, 1)
  7.   pDownMember = nextMember(pOrigMember, 2)
  8.   if inMixingMode() then
  9.     setCursor(pSpr, pointingHand())
  10.   else
  11.     setCursor(pSpr, noGood())
  12.   end if
  13. end
  14.  
  15. on endSprite
  16.   setCursor(pSpr, defaultCursor())
  17. end
  18.  
  19. on mouseUp me
  20.   global gCurrentItem
  21.   if inBonusMode() then
  22.     alertBeep()
  23.     exit
  24.   end if
  25.   if the doubleClick then
  26.     exit
  27.   end if
  28.   if modifierDown() then
  29.     toggleToolTips()
  30.   else
  31.     setCursor(pSpr, waitCursor())
  32.     toggleHelpWindow(gCurrentItem)
  33.     resetCursor()
  34.     setCursor(pSpr, pointingHand())
  35.   end if
  36. end
  37.  
  38. on mouseDown me
  39.   replaceDraggingAnything()
  40.   pSupressRoll = 1
  41.   if the doubleClick then
  42.     exit
  43.   end if
  44.   pSpr.member = pDownMember
  45.   clickSound()
  46.   updateStage()
  47. end
  48.  
  49. on mouseEnter me
  50.   pTimer = nowTicks()
  51.   rememberActiveBottle()
  52.   pSpr.member = pRollMember
  53.   showToolTip(pSpr, #help)
  54. end
  55.  
  56. on mouseLeave me
  57.   pSupressRoll = 0
  58.   restoreActiveBottle()
  59.   pSpr.member = pOrigMember
  60.   hideToolTip()
  61. end
  62.  
  63. on mouseWithin
  64.   if tipTickRange(pTimer) and not pSupressRoll then
  65.     forceToolTip(pSpr, #help)
  66.   else
  67.     dismissToolTip()
  68.   end if
  69. end
  70.